Imports System
Imports Microsoft.VisualBasic
Imports System.Threading
Imports System.Globalization
Namespace flspartnerweb

  Partial Class printContractTermsPartnerID3_aspx_vb
        Inherits Functions
    Public vehicleID As Object 
    Public realTime As Object 
    Public contractNumber As Object ' System.Object
    Public vinNumber As Object ' System.Object
    Public regnr As Object ' System.Object
    Public leaseStartDate As Object 
    Public dealer As Object ' System.Object
    Public dealerCity As Object ' System.Object
    Public dealerEmployee As Object 
    Public client As Object ' System.Object
    Public cin As Object ' System.Object
    Public areacode As Object ' System.Object
    Public telephone As Object 
    Public street As Object 
    Public zipcode As Object 
    Public clientCity As Object 
    Public brand As Object ' System.Object
    Public model As Object ' System.Object
    Public priceListDuration As Object 
    Public priceListDistance As Object ' System.Object
    Public yearlyDistance As Double 
    Public leaseEndDate As Object 
    Public price As Object ' System.Object
    Public totalPrice As Object 
    Public additionalPrice As Object 
    Public invoiceFee As Object 
    Public countryCurrency As Object ' System.Object
    Public decimals As Object ' System.Object
    Public additionalProductCount As Integer 
    Public additionalProduct As Object 
    Public dbAdditionalProduct As Object ' System.Object
    Public productID As Object ' System.Object
    Public leaseStartKms As Object ' System.Object
    Public firstRegistrationDate As Object ' System.Object
    Public paymentMethod As Object ' System.Object
    Public invoicePrice As Double 
    Public approvedKms As Double 
    Public numberOfYears As Long 
    Public salesTax As Object ' System.Object
    Public addSalesTax As Object 
    Public totalInvoiceFee As Double 
        Public partnerID As Object ' System.Object
        Public numberofIDDateAndPlace As String
        Public customerIdentification As Integer
        Public lsdateReal As DateTime

        Protected Overrides Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)





            MyBase.Page_Load(sender, e)


        End Sub


        Function FixDateFinnish(ByVal incoming As DateTime) As String
            Dim temp As String
            Thread.CurrentThread.CurrentCulture = CultureInfo.GetCultureInfo("fi-FI")
            temp = Format(incoming, "d.M.yyyy")
            Return temp

        End Function

    End Class



End Namespace
